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NEW BASIC CARTRIDGE 
BY 
FRED CORNETT 


We at The Cursor Group have received a 
deluge of letters regarding the rumors 
people have heard about AstroVisions 
planned release of a New Basic Cartridge. 
This column is dedicated to putting these 
rumors to rest. 


AstroVision IS planning to release a com- 
bined Bally Basic/Audio Cassette Inter- 


However, there are trade-offs: You will 
not be able to use "Auto-Run" features 
or any of the dirty tricks with the line 
Input Buffer. You are also unable to 
label programs or data files. 


3. The NEW Basic has an Edit feature 
that allows you.to step through a pro- 
gram line you wish to change by pressing 
two keys for each character. We did not 
find this very useful and suggested it 
be improved or dropped. 


4. Trace Mode: This feature excited 


us! The Trace is an 
face Cartridge in May  GfESEEEBREEREEEREREREESBESEBERS, 


1981. The only purpose B 
of this cartridge is tog 
begin packaging the B 
Bally Arcade with Basic å 
and Interface complete, B 
beginning in May. Thisg 
is being done so Astro- B 
Vision can advertise 

the Bally Arcade as a 

complete working Micro- 
Computer for $299.95. 


We have received sever- 
al of the NEW Basic 


AMWTEOPRMN 3) 
Cartridges in Eprom for "hammunuuazcéSEEEERSEEEESSEEEEE OU. 


our review and comments 
prior to it's release, they are as fol- 
lows: 


l. The NEW Basic Cartridge eliminates 
the old Audio Cassette Interface which 
allows you to store your programs on 
tape. Instead, the NEW Basic has a fe- 
male mini-plug connector built into the 
cartridge housing, you merely connect one 
wire to your cassette recorder and one 
wire to the cartridge. 


2. This Audio Interface operates at 18 
ØØ Baud. This means your programs will 
load 6 times faster than they do now. 


! g extremely valuable de- 
PSSST... m bugging tool. Lets 
say you have completed 
g^ op SOME Ba new program, but it 
INCREASED gis getting hung up 
BAUD? B somewhere and you 
E don't know where. 
MMerely Run the program 
Mand when you want to 
B find out what program 
Sline the Computer is 
Born executing-- 
E press the LIST key and 
B that line will print 
Very, very nice! 


5. Strings: As things now stand, we 
have one set of single dimensioned 
string arrays @(A), which load directly 
after your program in the text area. 
This causes a problem. If we wanted @(@ 
)=5611 and after that value was stored 
in Q(g) we added a line or deleted a 
line in our program, the value in Q(g) 
would be changed. This could have been 
eliminated by starting the strings at 
the bottom of memory. The NEW Basic 
does just that and also keeps the old 
strings, thereby providing two sets of 
single dimensioned arrays @(A) and *(A), 


MAIL ADDRESS: P. O. BOX 266, NORTH HOLLYWOOD, CA. 91603 
BUSINESS ADDRESS:1010 A. WEST MAGNOt!A BLVD. e SUITE 201 e BURBANK, CA. 91506 e (213) 843-7332 


these two sets will overlap at a point 138 GOSUB 92g; RETURN 


de£ermined by text size. 14g GOSUB 91g; RETURN 
. 15g GOSUB 99; RETURN 
6, RS232 Printer and Keyboard Inter- 16% GOSUB 919; RETURN 
face is completely eliminated in the NEW 20g PRINT "INCHES (XX.X)t-",;0(26)-2;Q( 
Haste moerore. 25)-5; @ (24) -4; @ (23) =Ø; RETURN 
7. Interrupt handling is also changed. 3ØØ PRINT "YARDS (XXXX.X)T=",;@(43)=9;@ - 
: . (42) 21; @ (41)-4; @ (4g) 24; RETURN 
MU te Agg PRINT "MILES (XXXX.X)t-",:0(62)-1;0 
P (61) =6; @ (6) =ø; @ (59) =9; RETURN 


to sell Bally Arcade Units. Dan Dawson, 
Pres. of AstroVision, has NO intention 
in making the old Bally Basic obsolete. 


5ØØ CX--59;PRINT "GALLONS (XXX.X)t-",;Q 
(8g) =3; @(79) =7; @(78) 28; 8(77) 25; RETU 


RN 
There is an existing treasure trove of = 
software el wate Basic and GØØ PRINT. LOUNCES (XX.X)T=",7C(99)=2;C 
AstroVision wants new people as well as (98) -838 (97) FI 2196) YO REMEN 
old to be able to access this vast li- THE ee (KKK. X) C=", 76 (115) 74; 
brüiy Sf softgake. @(114)=5; @(113) =3; 0 (112) 26; RETURN 
99% FOR A-9TO 7STEP -1;IF A-7PRINT ".", 
This cartridge is not in final form, we ;GOTO 959 
will discuss the final product when we 9g5 GOTO 95f 
receive it. 91g FOR A=1ØTO 7STEP -1;IF A-7PRINT "." 
ove one DC ola X XO oe DC eve DC Dx oe oe oe ere one oe 2C ^ ; GOTO 9 5g 
METRIC CONVERTER 915 GOTO 95 


92% FOR A=11TO 7STEP -1;IF A=7PRINT ". 


BY 
BILL TEMPLETON 


95g @(A)=KP;TV=@(A) ;NEXT A; RETURN 
1ØØØ $x@(B) ,@(18) ,@(162) ; RETURN 


This program converts American measure- 1Ø1Ø $x@(G) ,@(36) ,@(162) ; RETURN 
ments to metric. Press GO after input- 1Ø2Ø $x@(G) ,@(54) ,@(162) ; RETURN 
ting your menu selection. It will not be 1Ø3Ø $x@(G) ,@(72) ,@ (162) ; RETURN 
necessary to hit GO after inputting the 1948 $x@() ,@(9G) ,@(162) ; RETURN 
amounts! Please precede all amounts with 175g $x@ (Ø) ,@(1ø8) ,@ (162) ; RETURN 
zeroes to completely fill the field. 11ØØ CX=-47;CY=Ø;GOSUB 1199+M;GOTO 111g 
1191 PRINT "tTCMC=C",; RETURN 
EDITORS NOTE: We made a few changes to " Doom 
: : 1192 PRINT "METERSC=C",; RETURN 
hanks to BALL for sending us this one! ng 
t F C. 1195 PRINT "CGRAMSC=C", ; RETURN 
1 .ENGLÍSH TO METRIC a 1196 PRINT "LLKGL-L",; RETURN 
1 T 111g FOR B-174TO 169STEP -1;IF B=169PRI 
lg NT=Ø;BC=248;FC=135;CLEAR ;CY=Ø;PRIN NP'"S". ark wi sori 
T "LCCCGCINITIALIZING... — ain 
= 1128 TV=@(B) ;NEXT B;CY--32 
28 FOR Z=ØTO 179;0(Z)-g;NEXT Z;CLEAR ; 113% CX--77;PRINT "CCCGO AGAIN?LCCPRESS 
FOR Z=3ØTO SØSTEP 1g;CX--59;GOSUB Z Hu 00 
1d ET ME E. 114g BOX Ø,-32,13Ø,1Ø,3 
7 D EE eee 1157 IF &(23)-1GOTO 1g 
Ag PRINT "2-YARDS TO METERS";RETURN . 116% GOTO 1140. 
25 PuD MUTA M II. 1200 CLEAR ;PRINT "SCCCUSE LEADING ZERO 
Ø PRINT "4=GALLONS TO LITERS"; RETURN ES";PRINT ; RETURN 
79 PRINT "5-OUNCES TO GRAMS"; RETURN cens ppc SREY 
8g PRINT "6=POUNDS TO KG";RETURN Ge emqeeeeeeeoqdqeeee 


1ØØ PRINT ;PRINT ;INPUT "CCCCHOICE OF A 
BOVE?-"M;IF (M<7)+(M>Ø)=2GOSUB 129g 
; CX=-59; GOSUB 1ØØ+1ØØxM;V=99Ø+1ØxM; 


PROOF READING? 


GOSUB 1ØØ+1ØxM;GOSUB V;GOTO 11ØØ Somehow a semi-colon (;) was printed in 
1g5 GOTO 1gg our Jan/Feb 81 issue as a colon (:). 
11% GOSUB 9g; RETURN George Moses told us that little Gremlins 


12] GOSUB 929;RETURN. exist that travel by the darkness of 
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night with the exclusive purpose of 
plaguing self rightous publishers who 
claim not to print "glitches". We be- 
lieve him. 
Please make the following correction: 
page 83 BIORHYTHM COMPATIBILITY ANALYSIS- 

2Ø PRINT "txzCOMPATIBILITY ANALYSIS";CX- 

-41;PRINT "FOR 2 PEOPLE";PRINT 

While we are at it, Alex Morales has 
found a way to improve the accuracy of 
this program to within 1 percent. Please 
make the following changes: 
Delete lines 329 & 33g. Replace 31g, 349 
thru 369 with the following: 

31g T=32;U=48;V=3 

34g Q(19)-ABS(1gg- ( ( (2xG) x4) + ( ( (2xG) xT) 


+199) )) 

359 Q(29)-ABS (1ØØ- ( ((2xH) x3) + ( ( (2H) xU) 
+169) )) 

36g @(21)=ABS (1gg- ( ( (2x2) x3) + ( ( (2xJ) xV) 
+189) )) 
DIRTY PROGRAMMING TRICKS 


BY 


FRED CORNETT 
I can't tell you how much enjoyment I 
have had in the two years I have owned my 
Bally. Most of my delight has been gen- 
erated by finding ways of circumventing 
the limitations of this system. 


In the days of the Knights of the Round 
Table, Knights were trained for combat 
with a 40 lb. broadsword. They would 
spend months on end swinging that forty- 
pounder against a log; when they finally 
went into battle, they were given a 5 lb. 
sword. The object being--they had built 
up so much muscle using the 40 lb. sword, 
they could, swing the five pounder all day 
without tiring. 

and so it is with a Bally programmer..... 


When you key-in the programs printed on 
our pages, you must key them in exactly 
as you see them. We have used many dif- 
ferent tricks to save bytes that I will 
attempt to explain. 


l. PRINT STATEMENTS 
The final quote (") in a print state- 
ment is not needed if the print state- 
ment is the last (or only) statement 
on a line. 
The following statements are correct: 


lg PRINT "HELLO 

2 PRINT "GOODBYE";A=25 

39 C=26;PRINT "COME HERE";D=6;PRINT "N 
OW 


2. IF STATEMENTS 

When we know that the status of a var- 

iable is normally zero and we want the 

computer to print "ZAP" whenever the 

variable value is below or above zero 

we would' normally do it thusly: 

lg IF A>ØPRINT "ZAP 

2Ø IF A<ØPRINT "ZAP 

"or 

lg IF AS-gPRINT "ZAP 

A much easier way would be: 

1g IF APRINT "ZAP 
This last statement is saying "If the 
value of A is anything but zero Print "ZA 
P". The Bally logic does not accept zero 
as a value, so lets rephrase what line 19 
is doing: If A is any value Print "ZAP". 


We can take this notation system (Boolean 
Algebra) a step further and make up some 


pretty sharp statements, key in the fol- 
lowing without a line number and hit GO: 

PRINT 4x6=1Ø (no quotes please) 
Computer will print "Ø". Key in: 

PRINT 4x6-24 
Computer will print "1". OK! The first 
time we did 4x6=1Ø the computer said "Ø", 
which stands for False-the second time, 
we put in 4x6=24 computer said "1" True. 
AHA, what we have here is a lie detector. 
Lets say we wanted the computer to print 
"ZAP™ IP A=6 or IP B=7 or IF 099 or IF D= 
2, But we only want the computer to do it 
once we would normally do it thusly: 

lg IF:A=6PRINT "ZAP";GOTO 5f 

29 IF B-7PRINT "ZAP";GOTO 5f 

39 IF C-9PRINT "ZAP";GOTO 5Ø 

Ag IF D-2PRINT "ZAP 


5f STOP 
or use the info we have just learned and 


try this: 
1g IF (A=6)+(B=7)+(C=9)+(D=2) PRINT "ZA 
P CON'T LAST PAGE 


MORSE CODE SIMULATOR 
BY 


ALEX MORALES 

STAFF MEMBER 
Alex is 33 years old and joined our stags 
part-time in Feb. 81. After an honorable 
discharge («om the U.S. Army, Alex worked 
as a journeyman printer (0 SAX years un- 
tlk returning to college under the G.I. - 
Bill. He majored in Computer Science and 
works full time for Pacific Telephone. 


This is a very functional education pro- 
gram that has all the features that our 
memory size limitations would allow. 
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When Run, a menu will appear on your 
screen asking you to select from: 


1- MORSE TRAINER 

2- TEXT TO MORSE 

3- SAVE TEXT ON TAPE 
4- MORSE ALPHABET 


Try pressing 2. Computer will then print 
"ENTER TEXT (25 CHAR. MAX)". You then 
key in a phrase such as "I AM A BALLY", 
use spaces to separate words if phrase 
less than 25 chars., press GO when phrase. 
is complete. Computer will leave phrase 
showing at top of screen with morse equiv- 
alant underneath, ( slash separates 
letters, 3 slashes separate words, bal- 
ance of unused character will be slashes). 


To use 41 (MORSE TRAINER) you must first 
use 43 (SAVE TEXT ON TAPE) which will 
store phrases on tape. This allows a 
father to store ten phrases (more or less) 
on tape without his son seeing them. 

Then, son would use #1 to retrieve phrases 
from tape without being able to see the 
actual text. 


After using any of the four selections, 
computer will wait for a key to be pressed 
before returning you to menu. #4 (MORSE 
ALPHABET) Merely prints out an alphabet 
chart with morse equivalant for study 
purposes. 


This program will only accept letters and 
spaces-no numbers, special characters or. 
punctuation. 


NOTE: We gave Alex the idea for this pro- 
gram on a friday mornéng-he gave us the 
completed program on saturday afternoon. 


1 .MORSE CODE 
2 .BY ALEX MORALES 
5 @(26)=12;@(27)=2111; @(28)=2121; 0 (29 
)-211;0(3g)-1 
@(31)=1121; @(32)=221; @(33)=1111; 0 (3 
4)=11; @(35)=1222 
@ (36) =212; @ (37) =1211; @ (38) =22;@ (39) 
=21;@ (49) =222 
8 @(41)=1221; @ (42) -2212;0 (43) -121; G (4 
4)-111;0(45)-2 
9 Q(46)-112;0 (47) -1112; 0 (48) -122; 0 (49. 
)=2112;@ (59) =2122;@(51)=2211 
1Ø CLEAR ;BC=8;FC=7;NT=Ø;W=1ØØ;A=Ø; GOS 
UB 8Ø;GOTO 11Ø 
15 CLEAR 
16 PRINT "INPUT TEXT (25 CHAR. MAX) '";P 
RINT > 
17 NT=3 
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OV 


N 


PRINT "t",;FOR I=1+ATO 25+A 


2g 

25 BOX CX,CY,6,8,1;@(I)=KP;TV=@ (I) 

3Ø IF @(I)=31I=I-1;GOTO 25 

31 IF @(I)=13@(I)=32;GOTO 45 

4g NEXT I 

45 RETURN 

5Ø IF @(I)=32RETURN 

52 C=@(I)-39 

54 @(52)=@(C) 

55 Q=@ (C) +1ØØØ;IF Q>ØIF Q<3@(C)=@(C)-( 


og 


65 


145 
15g 


16g 
17g 
1ØØØ 
1Ø1Ø 


1Ø2Ø 
1Ø3Ø 
1Ø4Ø 
1Ø5Ø 
1Ø6Ø 
1Ø7Ø 
1Ø8Ø 
1Ø9Ø 


11ØØ 


1ØØØxQ) ; GOSUB W+Q 

Q=@(C) +199; IF Q>ØIF O<3@(C)=@(C)-(1 
ØØxQ) ; GOSUB W+Q 

Q=@ (C) +1Ø;IF Q>ØIF Q«30(C)-G(C)- (1g 
xQ) ; GOSUB W+Q 

GOSUB W+RM 

@(C)=@ (52) 

RETURN 

FOR I=1TO 25; @(I)=32; @(I+52)=32;NEX 
T I;RETURN 

CLEAR 

PRINT "tO", 

FOR I=1TO 25;GOSUB 5f 


IF @(I)=32PRINT "/", 

PRINT "/",;IF CX>=44PRINT ;PRINT "Ç 
Cr 

NEXT I; RETURN 
NT=3;MU=69;NT=Ø;PRINT ".",;RETURN 
NT=15;MU=69;NT=Ø; PRINT "-",;RETURN 


PRINT "ZZTMORSE CODE SIMULATOR 
CX=-65;CY=24; PRINT "10-CMORSE TRAIN 
ER" ; PRINT 

PRINT "tt2t-TTEXT TO MORSE"; PRINT 
PRINT "CC30-CSAVE TEXT ON TAPE";PRI 


PRINT "ty47-CMORSE ALPHABET";PRINT 
CX=-41;PRINT "INPUT CHOICE*C", ;K=KP 
;IF K>48IF K<53TV=K; GOTO 17 


GOTO 15g 

CLEAR ;GOTO l1ØØØx (K-48) 
CLEAR ;BC=96 

PRINT "LSTART TAPE TO READ TEXT"; :IN 
PUT 

K-KP;IF K-35GOTO 194g 
GOTO lg29 © 

FOR I=1TO 25;@(I)=KP;NEXT I;NT-3; :RE 
TURN EE 
PRINT "LLSTOP TAPE NOW";FOR I-1TO 59 
Ø; NEXT I 

GOSUB 85 

CY=Ø; CX=-77;A=52;GOSUB 16 

FOR I-53TO 77;IF G(I)=G(I-52)NEXT I; 
GOTO 112Ø | 
PRINT ;PRINT "GWRONGZ-ZCORRECT TEXTU 
TS: 

FOR I=1TO 25;TV=@(I) ;NEXT I;GOTO 113 


a 


1129 PRINT "ZCORRECT!", 

113g K-KP;GOTO 19 

2ØØØ GOSUB 15 

291g PRINT ;GOSUB 86;GOTO 113g 

3ØØØ BC=141;FC=Ø;GOSUB 15 

3Ø1Ø PRINT "START RECORDER & PRESS GO",;K 
=KP 

3Ø2Ø NT-7;CLEAR ;:PRINT ;TV=35;FOR I-1TO 
25; TV=QA(I);NEXT I;:RETURN 

3Ø3Ø PRINT "CSTOP RECORDER NOW 

348 GOTO 113g 

AØØØ FOR A-26TO 5fSTEP 3;CX--71; TV-A439;T 
V=61;C=A;GOSUB 54;CX=-23;TV=A+4Ø; TV= 
61; C=A+1 

4918 GOSUB 54;IF A+2<52CX=31; TV=A+41; TV=6 
1;C=A+2;GOSUB 54;PRINT ;NEXT A 

4928 GOTO 113g 

CEEE 
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l. Bally On-Board ROM Sub-Routines. Explains the use of the on- 
board routines which allow you to perform such things as you 
find in the "Machine Language Programs" in Cursor. Includes 
ASCII Standard & Nonstandard Character Sets, Cassette Memory 
Structure; Output Ports; Input Ports; Bally Data Base Locat- 
ions; Bally Memory Locations; and On-Board ROM 8K Hex Dump. 
$4.49 


2. Hackers Manual. Describes features provided in the Tiny 
Basic but not documented in the Bally Instruction Booklet. 
(Additional Commands). $3.99 

3. Disassembled Tiny Basic (CDOS Z80 Assembler Version 02.15) 
A complete assembly language listing including OP Code and 
comments of the Tiny Basic Cartridge. $8.49 


4. Disassembled Brickyard & Clowns. A complete assembly lang- 
uage listing including OP Code and comments. $9.99 


5. Disassembled DEMO Cassette. A complete assembly language 
listing including OP Code and comments. $8.49 


6. Bally System Description Book. Extensive and includes 
"Electrical Specifications for Midway Custom Circuits", Timing 
Interrupt handling explanations, etc. $8.99 


7. Disassembled System Software. A complete assembly language 
listing including OP Code and comments to include: Home Video 
Game Equates; Port Equates; System Call Indexes; Macros; Music 
Macros; Music Equates; System RAM Memory Cells; User Supplied 
Routines; Masks; UPI Routines Address Tables; Sentry; BCD 
Divide; BCD Subtract & Add; Decrement Counters & Timers; Music 
CPU; Vectoring Routines; Paint Rectangle Routines; Write Rou- 
tines; Character Display Routines; Display BCD; Menu Routines 
and much, much more. $13.49 


8. Disassembled On-Board Games, A complete assembly language 
listing including OP Code and comments to include: Scribbling, 
Calculator, Checkmate, Gun Fight. $15.99 


9. Bally Service Manual. Schematics, Parts Lists, instructions 
for removing RF Shields, and much more. No one should be with- 
out iti! $3.50 


10. PEEK n' POKE: The only manual written that is truly 
beginner level. Opens up the power of machine language; 
tells how to get floating point decimal out of this 
machine along with programs. $8.25 


CS — MANUALS — FIRST CLASS — 


HAMURABI 
BY 
BRUCE DE VRIES 


Her 
you 


e are the rules För hübtarsbr: After 
answer each question press 'GO' 


1. At the start a person needs 10 
bushels of grain per year to live. 
Farm worker strikes can change 
this. They may accept up to 2 less 
bushels than they demand. If your 
offer is rejected there will be no 
harvest. Strike amount equals 10 
plus your settlement. 


2. 55% of the people must be fed or 
your term of office may expire. 


3. You may buy or sell land at prices 
from 17 to 26 bushels per acre. 


.4. It takes 3 bushels to plant an 


NOT 


1g 
2g 


3g 
4g 


acre and 1 worker to plant 10 
acres. 


5. Term of office is twenty years. 
If you can make it. 


E: It would help to have a cakculator 
close at hand 4§ you want to win! 


CLEAR 
: RETURN ;P=5Ø;G=2ØØØ; L=5ØØ; D=1Ø;S=Ø;M 
=Ø;K=Ø; X=Ø; PRINT "WHAT IS YOUR NAME?L 


V-KP; TV=V; IF V-31X-X-1;GOTO 39 
IF V#13X=X+1;@(X)=V;GOTO 3f 


5Ø FOR Y-1TO 29; GOSUB 36Ø; PRINT "LI BEGG 


6g 
79 


TO TO REPORT TO YOU. ON YEAR",L33,Y 
N-RND t5y4.2Y. R-RND (4) *4xG+N;IF R>ØG=G 
-R; PRINT "RATS ATEC",#1,R,"Cbushels" 
N-RND (4)+1;T=RND (6)*6xG:N;IF T>ØG=G 
-T; ;PRINT "THIEVES STOLEt",#1,T,"CBUSH 
ELS 


89 IF RND (13):13-1W-1 
99 IF W-lE-RND (6);PRINT "A STRIKE HAS B 


EEN CALLED BY LOCAL 462 OF THE UNIONZ 
THEY DEMAND",#2,E,"CMORE BUSHELS 


1ØØ IF W-lINPUT "WHAT IS YOUR OFFER?"Ø; LIE. 


LE- ØSRND (3 (3) D=D+Ø; PRINT "FEED YOUR PE 
OPLET ",41,D,"TBUSHELS PER YEAR";W-f 


11Ø N=RND (3Ø);IF N«3PRINT "A PLAGUE HASC 


HIT THE CITY.CCCHALF THE PEOPLE DIED" 
:P=P+2 


12g I-P:5-RND (3Ø);P=P+I;PRINT "NEW PEOPE 


13g 


149 


",#4,1;PRINT "PEOPLE STARVED" ,#4,S;PR 
INT "POPULATION OF THE CITYC",#1,P 
PRINT "ACRES OF LAND",#6,L;H=RND (6); 
IF H=1PRINT "A DROUGHT HAS HIT THE LA 
ND 

IF W=1PRINT "THE UNION PICKETS AND TH 
E GRAIN ROTS";GOTO 16Ø 
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15g IF M&gPRINT #4,M,"CACRES PLANTED"; PRI 
NT #4,H,"CBUSHELS PER ACRE";V-MxH;PRI 


NT #4,V,"CHARVEST FOR THIS YEAR" ;G=G+ 
V 

16Ø PRINT "BUSHELS ‘OF GRAIN",#6,G;A=RND ( 
1Ø) +16 . 

17Ø PRINT "BUY # ACRES @",#4,A,;INPUT "LB 

| USHELS PER ACRE?"B;IF BxA>GGOSUB 359; 
GOTO 17g 

18g U-g;IF B=ØIF L#ØINPUT "SELL # ACRES?" 
U;IF  U»LGOSUB 349; GOTO 18g 

19g G=G- G-AxB+AxU ; L=L+B- x. a. 

20% INPUT "BUSHELS TO FEED CITY?"C;IF C>G 
GOSUB 35Ø;GOTO 2ØØ 

21Ø G=G-C;F=C+D;IF F>P F=P 

226 IF F>P+2+P+2ØG0TO 27Ø 

23Ø GOSUB 36Ø;PRINT "tYOU HAVE BEEN ACCUS 
ED OF STARVING YOUR PEOPLE";PRINT "AZ 
JURY WILL DECIDE YOUR FATE 

248 IF RND (4)=1PRINT "THE JURY HAS FOUND 
YOU NOT GUILTY BY REASON OF INSANITY. 
CBE MORE CAREFULLZ!!";GOTO 27g 

259 PRINT "YOU HAVE BEEN FOUND GUILTYANDG 
ARE SENTENCED TO LIFE ON A LONELY ROC 
K IN THETCCSUMERIAN SEA. 

269 GOTO 32g 

279 S=P-F;K=K+S; P=F;M=¢ 

28g IF LØINPUT "# ACRES TO PLANT?"M;IF M 
x3» GGOSUB 35Ø;GOTO 28Ø 

299 IF M>Px1ØGOSUB 33Ø;PRINT #1,P,"CWORKE 
RS";GOTO 289 

3ØØ IF M>LGOSUB 34g;GOTO 28g 

318 G=G-Mx3;NEXT Y;GOSUB 36Ø;PRINT "LYOUG 
COMPLETED YOUR TERM, BUT STARVEDC",#1 

K,"CPeople 

328 A-KP;GOTO 1g 

3309 PRINT "SORRY YOU ONLY HAVEC", ; RETURN 

348 GOSUB 33Ø;PRINT £$1,L,"LACRES"; RETURN 


359 GOSUB 33Ø;PRINT #1,G,"CCBUSHELS" ; RETU 


RN 


36M PRINT "KINGZ",;FOR N=LTO X; TV-Q(N);NE 


XT N;RETURN 


TREASURE ISLAND 


: BY 
AN J. DREACHER 


D 


This is a game for two players that uses 
the keypad for input. The computer hides 
a treasure behind a secret box in a 
matrix of sixty boxes. Behind the other 
boxes can be found clues, cute little 
symbols, or nothing at all. The object 
of the game is to find the treasure 
first. 
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On the screen will appear two pirate 


ships, one representing each player. As 
you can see, they are docked at Treasure 
Island. Player one decides which box to 
check behind. Always counting from left 
to right and top to bottom, you enter 
the number of boxes you want to move 
horizontally (H) and vertically (V). A 
member of your crew will hop out of your 
ship and quickly execute movement for 
those values and reach the desired box. 
Here he will dig for treasure and find 
one of the following things; 
1. The Treasure---- ) 
2. Clues----------- Arrows that point 
in the direction of the treasure. 
It simply means that the treasure 
cannot be in the rows behind the 
arrow. It can be in the same row. 
The arrow will be covered up and 
should be remembered. 
3. Quicksand------- (*) lose one turn 
4. Pirates Latreen--(@) No effect on 
playing game 
5. Pirate Attack--- The selecting 
players ship will be shot at by the 
other pirate ship. No effect on 
playing of game. 
6. Blank----------- Nothing there at 


This game includes interesting graphics 
and sound. It's also fun to play! 


2 .56531356539gg59964543429g 

lg BC=221;FC=162; P=1;S=1;Z=19; R=Ø; CLEAR 

2g BOX 6Ø,3Ø,1Ø,2,1; BOX -6Ø,3Ø,1Ø,2,1;BO 
X -65,31,4,1,1;BOX 65,31,4,1,1 igs 

3g BOX 68;29,8,2,1; ;BOX -6Ø,29,8,2,1 

4g BOX ri TK e ae me a ar ;BOX Cy quac v t Mech t 

5Ø BOX 59,34,1,8 ,l; BOX - 459,34,1,8,l 

55 LINE-55,39,4:; LINE 51,32,1 

56 LINE -55,3Ø,4;LINE -51,32,1 

57 BOX 59,34,6,3,1;BOX -59,34,6,3,1 

68 CX=-4Ø;CY=-39; PRINT "TREASURETCISLAND 

65 L=65;N=25 

66 LINE L,N,4 

7f FOR FOR A-1TO 12;LINE L+RND (6)-6,N,L;N=N 
-5;| NEXT ^ e 

8g ER L=65L=-65;N=25; GOTO 66 

82 L=65; N=28 


^ 


83 
85 


87 
9g 


LINE L,N,4 

FOR NeLpPO 14; LINE L, N+RND (4) -4,1;L=L 
-1Ø;NEXT A 

IF N-28N-- 28;L=65;GOTO 83 

FOR A--24569TO -24545;NT-12;MU-$ (A) ;N 
ext A;NT-3 hi 


1ØØ 
11Ø 
13Ø 
14Ø 
16Ø 
162 
164 


165 
17Ø 
18Ø 
19Ø 
29g 
21g 
22g 


23g 


24g 


25g 
26g 
27g 
275 


289 
662 
685 
6Ø6 
61Ø 
62Ø 
63Ø 
64Ø 
645 
65Ø 
66Ø 
665 
67Ø 


1ØØØ 
1693 
1064 
1665 
1666 
1607 
1614 
1615 
116 
1Ø2Ø 
1Ø27 
1Ø3Ø 


1Ø6Ø 
1Ø65 


X=-55;Y=2Ø;FOR A-1TO 6Ø 
BOX-X,Y,7,7,1;Q0(A)-RND (19) 
X=X+1Ø;IF X=65X=-55;Y=Y-1Ø 


NEXT A;F-RND (6Ø);Q(F)=3Ø 


FOR M=1TO 5ØØ;NEXT M 

IF Z=1ØGOTO 165 

BOX X,Y,7,7,1;IF X<55BOX X+1Ø,Y,7, 
72d. 


GOSUB 1992 

A= (V-1) x12+H;K=F+12 

CX-X;CY-Y 

IF G(A)=3ØPRINT "$";GOTO 3ØØØ 


IF G(A)=1IF V«KPRINT "4";GOTO 169 
IF @(A)=2IF V>KPRINT "+";GOTO 169 


IF Q(A)-3IF H>F-(12xK)PRINT "<";GO 
TO 16g 
IF G(A)=4IF H«F-(12xK)PRINT "+";GO 
TO 169 


IF @(A)=5PRINT "*";CY--39;PRINT "Q 
UICKSAND-LOSE ONE TURN"; R=19;GOTO 
165 

IF @(A)=6GOTO 6f 

IF @(A)=7IF V«KPRINT "4";GOTO 16g 
IF @(A)=8IF V>KPRINT "+";GOTO 169 
IF Q(A)-9PRINT "Q";CY--39;PRINT "L 
PIRATES LOST LATRINE";GOTO 165 

BOX X,Y,7,7,2;GOTO 165 
H=32;CY=-39;CX=-4Ø; PRINT "PIRATE A 
TTACK 

IF P-1E--59 

& (21)=23Ø;IF P=2E=59 

FOR A-1TO 59 

IF A<4H=H+1 

IF A>58H=H-1 

IF P=1E=E+2 

& (19) =A+2Ø 

IF P-2E-E-2 

BOX E,H,2,2,1;BOX B,H,212,2 

NEXT A;&(21)-g 

BOX E,H-RND (3),1+RND (6),1+RND (6 
),2;MU-"1";GOTO 168 

IF P-2GOTO 1996 

CX=-4Ø;CY=35; INPUT H 

CX=-4Ø; CY=35; INPUT V 

IF P-1GOTO 1Ø14 

CX=2Ø; CY=35; INPUT H 

CX=2Ø; CY=35; INPUT V 

BOX P,=39; 16Ø, 1g, 2 

IF H>12H=12 

IF V»5V-5 

BOX Ø,35,1ØØ,1Ø,2;E=-6Ø 


IF P-25E-6f 
FOR M=1TO 5Ø;Z=Ø;BOX E,3Ø,2,3,3;NEXT 


M; Y=3Ø 
X--65;IF P-2X-65 


FOR M=1TO V;BOX X,Y,2,3,3;MU="3";Y=Y 


-1Ø;BOX X,Y,2,3,3;NEXT M 


1195 G=1Ø;IF P-2G--1g 
111g IF P=1FOR M=1TO H į - 

1115 IF P=2FOR M=1TO 133 \ 

1128 BOX X,Y,2,3,3;X=X+G BOX X,Y,2,3,3 
114g MU="1" 

115% NEXT M 

116g FOR M=1TO 5Ø;BOX X,Y,2,3,3;NEXT M 
119g IF R-1gR-g; RETURN 

1195 IF P-1P-2; RETURN 

129% P=1; RETURN 

399g PRINT "TtTTYOU WIN 


SCSSCS PSS OOO SCOCSCEHS 
SMET Back ISSUES AVAILABLE $ EEND 


We have had numerous requests for info regarding BACK ISSUES! 

The following are available: 

l. Jan. 80 Contains: Electric Bill Analysis; Plastic Puzzle, 
Instructions for adding a Full-sized ASCII Keyboard; Life 
Systhesis Model. 

2. Feb. 80 Contains: PEEK n' POKE: Hex to Decimal Converter; 
String Array @(A) Memory Locator; Instructions on how to 
add a Printer; Bubble Sort; Camel; Memory Map; WUMPUS. 

3. Mar. 80 Contains: Three Voice Music Assembler; Star Wars 
Music; Chopsticks; Chicago Loop; Lace Curtain; Character 
Set Size Multiplier; Rotation; National Distributor Info. 

4. Apr/May 80 Contains: DMA Graphics (eliminates BOX & LINE 
commands, allows very complex graphics!); Reference Books, 
Product Review (Computer Ear-Speech Recognition Unit for 
Bally); Music Contest; RING; Alarm Clock; Byte Saving Hints. 

5. June 80 Contains: Direct Color Video/Audio Circuit (for 
Color Monitor or VCR etc.); Galactibattle (Game); PRINT & 
STRING Tutorial; OTHELLO: ASCII Conversion Chart; Cursor 
Control Chart. 

6. July 80 Contains: CURSOR Keyboard & 48K Memory Add-On 
info; ARCADE GOLF; Shell-Metzner Sort; Wavemakers "Maze- 
maker;; Floating Point Math; User Group Meetings. 


VOL. 2, Issue l (August) Contains: Cursor Inventory Control 
(Business Software); "Connect Four" (a professional quality 
game); software for the Computer Ear (Anderson Research) - 
'Fun With Music’. 

VOL. 2, Issue 2 (Sept.) Contains: ASTROVISION ACQUIRES BALLY - 
an Editoral; Spider Web (Graphics Program); Reverse (Game); 
Design ( a Graphics Program); Match Quiz (an Education Program); 
Note Match (an Education Program). 

VOL. 2, Issue 3 (October) Contains: Peek n' Poke Tutorial; 
Critter - a Machine Language Program that creates a non-blink- 
ing FAST moving character; Poor Mans Memory Expansion (a 
tutorial); Sideswipe (car driving game); We Three Kings of 
Orient Are (3 Voice Chord Music); Machine Language Graphics 


Tutorial. 
VOL. 2, Issue 4 (Nov/Dec) Contains: "ZGRASS32" Add-under info; 


New game cartridges; Programming Contest; Complete Bally, 
Game Cartridge description; Chess program; Software reviews. 
Vol. 2, Issue 5 (Jan/Feb) Contains: Winter CES News; Bio- 
Rythyms Compatability Analysis program; Towers of Hanoi game; 
Executive Time Card Calculator program; How to display all 
256 colors on screen at same time; l's & 5's game program; 


Line Resequence program 

e... $1.75 per back issue desired OR $9.75 for Volumn I and 
$9.75 for Volumn II to: CURSOR, P.O. Box 266, N. Hollywood, 
CA 91603 


MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Still the BEST buy in town!! CURSOR C-20 
Digital Blank Tape by the case. Although 
we nave had to raise the price (our cost 
went up) you can't buy a better quality 
C-20 tape any any price. Just send us 
$15.99 (check or money order for fast- 

er service) and we'll rush you 10 great 
tapes to help you program at your very 


best. 
CURSOR VOL.II PAGE. 97 


sere vie CONT INUED FROM PAGE 93 Shel e PF um, " WAVEMAKERS BOX 94801 SCHAUMBURG, ILL. 60193 


Same result. We are telling the computer C VAVRVEAVNFKERS 7 TAPE 7 
to print "ZAP" IF;any or all of the 


B "EE ud | Ea 
statements contained within parenthesis Guitar Course 
RER EEE === cme eel 


are correct. We can limit this statement 


even futher-lets say we wanted to print QUITAR TUNING Would you like to become the next EADCEE 
: 321 Peter Frampton, or the Beatles? 
"ZAP" if three out of the four statements Well so would I; I love money. HORD C 
l======== Maybe you'd settle for playing Eae ü 
were correct: 22222222 guitar for your own enjoyment and | 
=a == | leave the hit records to Pink USE KNOB I 
1g IF (A=6) + (B=7) + (C=9) + (D=2)=3PRINT " | Floyd. But why spend $10.00 on TO SELECT 
E ————— 456 a lesson for the next six months CHIRO. PUSH 
ZAP TUNE 1 TO THIS NOTE when for only $12.95-+ 50€ postage Mg ee 
We could have said Ø,1,2,3, or 4. Zero e$ gioca ed cedem p 654321 


would be saying IF none of these are true —COLOODCOOCCOOCOOCOOCCOCOOO | 


print. "ZAP". 


3. SPACING Cup Ba) 
Many bytes may be saved by eliminating ESOTERICA LTD. N 


unnecessary space in program lines. Daas nai 5 
The rule is simple, there are 3 types ad OH ALAS r., NW 
of Text: 
If you like "Treasure Island", page 96, 
1. Command words (IF, PRINT, LIST,etc) CURSOR recommends you send $9.50 for 
2. Letters (A,B,C etc) Dan's two new programs -- 'Star Trek' 
i. nn ES rv se, types to= SENE NE EN JUNG ei Å 
ae ET one lent!! "Star Trek":* You åre sitting at 
2 the command console looking out the main 
ACCEPTABLE view screen. A read-out at the bottom of 
1g IF A-26C-3 the screen keeps you informed of your 
28 IF A-26PRINT "HELLO warp factor, direction, etc. Challenging! 
3Ø IF A-BGOTO 19g "Golf" has six holes and a capacity for 
NOT ACCEPTABLE one to four players. 


lg A=BC=3 
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